8 POKE56,56:CLR:POKE53371,0:POKE788,49:TQ=TI
10 DV=PEEK(186):IFDV<8THENDV=8
20 POKE53281,0:POKE53280,0:PRINT"[147]":GOSUB60000
30 SYS57812"AMADEUS MOUSE2.1",DV,0:POKE780,0:POKE781,0:POKE782,64:SYS65493
32 SYS57812"AMADEUS FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
34 SYS57812"AMADEUS SID",DV,0:POKE780,0:POKE781,0:POKE782,192:SYS65493
36 SYS49615
38 D%(1)=74
40 FORI=1TO8
42 READF$(I),N$(I)
44 SYS57812F$(I),DV,0:POKE780,0:POKE781,0:POKE782,D%(I):SYS65493
46 D%(I+1)=PEEK(175)+1:E(I)=PEEK(174)+256*PEEK(175)
48 NEXT
50 DATA"K16-1-MOZART.MUS","[211]YMPHONY [206]O. 1 [203].16"
51 DATA"K19-4-MOZART.MUS","[211]YMPHONY [206]O. 4 [203].19"
52 DATA"K22-5-MOZART.MUS","[211]YMPHONY [206]O. 5 [203].22"
53 DATA"K43-6-MOZART.MUS","[211]YMPHONY [206]O. 6 [203].43
54 [131]"K45-7-MOZART.MUS","(null)YMPHONY (null)O. 7 (null).45"
55 [131]"K45A-MOZART.MUS","(null)YMPHONY (null)O. 7 (null).45A"
56 [131]"K48-8-MOZART.MUS","(null)YMPHONY (null)O. 8 (null).48"
57 [131]"K73-9-MOZART.MUS","(null)YMPHONY (null)O. 9 (null).73"
64 ML[178]64[172]256:MV[178]ML[170]156:V[178]53248
66 [151]MV[170]1,158
68 [151]V[170]21,0:[158]ML:[158]ML[170]6,14[172]64
70 [153]"LOAD":[151]53272,31:[158]ML[170]126,0,38,0,24,254,255,14,4
78 [158]ML[170]30,3,36,2,9,255,6
80 [158]ML[170]30,2,35,1,8,160,3[170]16
88 [153]"PRINT";
90 [158]ML[170]27,2,"(null)(null)ATNSTR$(null)(null)ATN(null) (null)ROUDLY (null)RESENTS
92 PRINT"";
94 SYSML+12,16,3,"[212] [200] [197]"
100 SYSML+12,5,4,"[176][192][174] [176][174][176][174] [176][192][174] [178][192][174] [176][192][174] [174] [176] [176][192][174]
102 [158]ML[170]12,5,5,"-TAN< (null)/EXP(null) -TAN< (null) (null) -TAN  (null) (null) /TAN^
104 SYSML+12,5,6,"[189] [173] [189]  [173] [189] [173] [177][192][189] [173][192][189] [173][192][189] [173][192][189]"
110 SYSML+27,7,"[211] [217] [205] [208] [200] [207] [206] [201] [197] [211]
112 [158]ML[170]39,160
120 [158]ML[170]30,3,26,12,23,255,6
122 [158]ML[170]30,2,25,11,22,160,3[170]16
130 [158]ML[170]30,29,36,12,23,255,6
132 [158]ML[170]30,28,35,11,22,160,3[170]16
140 [158]ML[170]12,30,12,"CONT(null)(null)ATN(null)CMDCMDCMDCMD(null)(null)(null)CHR$CMDCMDCMDCMDCMDCMDOPEN-TANTANTANTANTANTAN<CONTCMDCMDCMDCMDCMDCMD(null)(null)ATN(null)CMDCMDCMDCMDATN(null)(null)"
142 [158]ML[170]12,28,17,"OPEN-TANTANTANTANTANTAN<CMDCMDCMDCMDCMDCMDCONT(null)(null)(null)CHR$CMDCMDCMDCMDRIGHT$(null)ASC(null)CMDCMDCMDCMDCMDCMDOPEN-TANTANTANTANTANTAN<CMDCMDCMDCMDCMDCMDCONT(null)(null)RIGHT$(null)"
150 [158]ML[170]15,1,29,34,12,13
152 [158]ML[170]15,2,29,34,15,16
154 [158]ML[170]15,3,29,34,18,19
156 [158]ML[170]15,4,29,34,21,21
160 [129]I[178]1[164]8
162 [158]ML[170]12,4,12[170]I,N$(I)
164 [158]ML[170]15,4[170]I,3,24,12[170]I,12[170]I
166 [130]
200 [158]ML[170]9
202 [143] PRINT"             "RG%;CR%
204 [139]RG%[167][158]ML[170]36,RG%,255,1:[158]ML[170]24,2:[158]ML[170]36,RG%,255,14
210 [139]CR%[167]230
220 [137]200
230 [139]CR%[178]1[167][141]300:[137]200 [143] PLAY
240 [139]CR%[178]2[167][141]400:[137]200:[143] PLAY ALL
250 [139]CR%[178]3[167][141]500:[137]200:[143] INFO
260 [139]CR%[178]4[167][158]ML[170]3:[151]49152,0:[158]49935:[153]"LOAD":[137]40000:[143] QUIT
268 G[178]CR%
270 [158]ML[170]30,2,25,11,22,160,3[170]16
272 [129]I[178]1[164]8
274 [158]ML[170]12,4,12[170]I,N$(I)
276 [130]
280 [158]ML[170]36,G,255,14[170]128
290 [137]200
300 [139]G[178]0[167][142]
302 P[178]1:[141]500:P[178]0
310 [151]781,0:[151]782,D%(G[171]4)
320 [158]49664:[151]49152,7
330 [158]ML[170]9
332 [139][194](49152)[178]0[167]350
340 [139]L2%[178]0[167]330
350 [151]49152,0:[158]49897
352 [158]ML[170]42,168
360 [142]
400 [129]G[178]5[164]12
410 [141]300
420 [130]
430 [142]
500 [139](G[179]1)[176](G[177]12)[167][142]
502 [158]ML[170]39,168:[158]ML[170]42,160
510 [158]ML[170]30,3,36,13,21,255,6
520 [158]ML[170]30,2,35,12,20,255,3[170]16
530 [151]214,13:[153]:[153][163]3);
540 H[178]E(G[171]4)
550 [129]I[178]H[164]H[171]200[169][171]1
560 [139][194](I)[178]1[167]S[178]I:I[178]H[171]200
570 [130]
580 [129]I[178]2[164]200:[139][194](I[170]S)[178]0[167]I[178]200:[137]590
582 [153][199]([194](I[170]S));:[139][194](I[170]S)[178]13[167][153]"";
590 [130]
592 [139]P[167][142]
600 [158]ML[170]9
610 [139]L2%[178]0[167]600
620 [158]ML[170]42,168
630 [142]
999 [137]999
10000 D[178][194](186):N$[178]"0:B.AMADEUS I":[159]15,D,15,"S"[170]N$:[160]15:[148]N$,D:[128]
40000 [151]53269,0
40002 [129]I[178]8[164]29:[151]820[170]I,I:[130]:[139]DV[177]8[175]DV[179]30[167][151]828,DV:[151]820[170]DV,8
40010 A$[178]"PRESENTER":[141]40030:A$[178]"HELLO CONNECT":[141]40030
40020 [153]"LOAD":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
40030 [129]J[178]8[164]29:I[178][194](820[170]J):[139]I[178]14[167][130]
40040 [160]2:[159]2,I,2:[160]2:[139]ST[167]40060
40050 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40070
40060 [130]:[142]
40070 A$[178]"HELLO CONNECT":Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23
40080 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I
40090 [153]"RUN:":[151]631,13:[151]632,13:[151]198,2:[128]
60000 [153]"LOAD":Z$[178]" PRINT#                                      ":[151]214,10:[153]
60010 [153]" LISTFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE":[129]I[178]0[164]11:[153]Z$:[130]
60020 [153]" POKEPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPRINT#"
60030 Z$(0)[178]"(null)LEFT$VAL ATN(null)ATNSTR$VAL(null)(null) (null)(null)(null)(null)LEFT$(null)(null)RIGHT$VAL(null)"
60040 Z$(2)[178]"BY STR$AVE (null)ARQUIS
60050 Z$(4)="(C) 1999 BY [202] & [198] [208]UBLISHING, [201]NC."
60060 Z$(6)="[212]HIS PRODUCT IS NOT SHAREWARE
60070 Z$(7)[178]"OR IN THE PUBLIC DOMAIN."
60080 Z$(9)[178]"1-800-594-3370 OR 1-318-221-8718
60090 POKE214,12:PRINT:FORI=0TO9:PRINTTAB(20-(LEN(Z$(I))/2))""Z$(I):NEXT:RETURN
60100 FORI=0TO6:PRINTTAB(20-(LEN(Z$(I))/2))""Z$(I):NEXT:RETURN